function moments = testfont(font)
    %font = '~/ucl/proj/data/Arial'
    files = dir(fullfile(font, '*.png'));
    
    moments = zeros(length(files), 1);
    
    for i=1:length(files)
        cur = ~im2bw(imread(fullfile(font, files(i).name)));
        cur = bwmorph(cur, 'thin', Inf);
        moments(i) = (cmoment(cur, 3, 0, 1) + cmoment(cur,1,2,1)) ^ 2 + (cmoment(cur, 2, 1, 1) + cmoment(cur,0,3,1)) ^ 2; % Hu's fourth moment
    end
    
end